home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cddbco2a / module1.bas < prev    next >
BASIC Source File  |  1999-10-13  |  267b  |  8 lines
  1. Attribute VB_Name = "Module1"
  2. Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
  3.  
  4. Public Function DvT(Dv As Variant) As Long
  5.        sDl$ = Left$(Dv, 1) + ":\"
  6.        DvT = GetDriveType(sDl$)
  7. End Function
  8.